Option Explicit
Sub F_Sample059()
    'Oracle Objects for OLE (OO4O) o
    Dim myOraSs   As Object
    Dim myOraDb   As Object
    Dim myOraDnst As Object
    Dim tmp       As Variant
    Dim mySqlStr  As String
    'wnHSQLs@
    mySqlStr = "CREATE TABLE TESTTBL(AAA char(4) Not NULL,BBB char(5))"
    Set myOraSs = CreateObject("OracleInProcServer.XOraSession")
    'wnsA
    Set myOraDb = myOraSs.OpenDatabase("ServerName", "san/san", 0&)
    With myOraDb
        .ExecuteSQL _
            "CREATE TABLE TESTTBL(AAA char(4)Not NULL,BBB char(5))"
        MsgBox "wsWuTESTTBLv"
        .ExecuteSQL "DROP TABLE TESTTBL"			'HSQLӧR
        MsgBox "wRuTESTTBLv"
        .Close
    End With
    Set myOraDb = Nothing					'
    Set myOraSs = Nothing
End Sub
